﻿Public Class IsverenCalismaDonemleri
	Inherits Process

	Dim sno As Input

	Public Overrides Sub GenericEvent(ByVal e As ProcessEventArgs)
		Select Case e.EventType
			Case EventType.Initialize
				Start("İşveren Çalışma Dönemleri", "İşveren bilgisini girin.")
				sno = AddSigortali()
				StartBody()
				AddList()
				List.AddColumns("tarih1(Baş.tar.;d;80),tarih2(Bit.tar.;d;80)")
			Case EventType.ValidateForm
				Help = "Ekle ve Sil butonlarını kullanarak çalışma dönemlerini girip kaydedin."
				List.DataSource = Hukuk.Af.CalismaDonemleriOku(Remote, sno.Get)
				Buttons.Show("Add.Delete.Save")
				e.Result = True
			Case EventType.Add
				ShowDialog("add")
			Case EventType.Delete
				If List.NoSelection Then Return
				If Not Confirm("Bu kaydı listeden silmek istediğinizden emin misiniz?") Then Return
				List.RemoveSelected()
			Case EventType.Save
				Hukuk.Af.CalismaDonemleriKaydet(Remote, sno.get, List)
				Info("Kayıt işlemi başarıyla tamamlandı.")
				ResetForm(True)
		End Select
	End Sub

#Region " Add "

	Dim tarih1, tarih2 As Input

	Public Overrides Sub DialogEvent(e As ProcessEventArgs)
		Select Case e.EventType
			Case EventType.Initialize
				Modal.Start("Çalışma Dönemi Girişi", "Dönem başlangıç ve bitiş tarihlerini girin.")
				tarih1 = Modal.AddDate("tarih1", "Başlangıç tarihi", "nl", "", "Başlangıç tarihini girmelisiniz.")
				tarih2 = Modal.AddDate("tarih2", "Bitiş tarihi", "nl", "", "Bitiş tarihini girmelisiniz.")
			Case EventType.Shown
				Modal.Buttons.Show("Save")
			Case EventType.Save
				List.AddRow(tarih1.Get, tarih2.Get)
				tarih1.Reset()
				tarih2.Reset()
				tarih1.Focus()
		End Select
	End Sub

#End Region

End Class


